home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / ifp1s155.zip / PAGE_12.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-21  |  1KB  |  55 lines
  1. unit page_12;
  2.  
  3. interface
  4.  
  5. uses crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page12;
  8.  
  9. implementation
  10.  
  11. procedure page12;
  12.  
  13. const
  14.   headermin = 0;
  15.   headermax = 17;
  16.  
  17. var
  18.   header : array[headermin..headermax] of byte;
  19.   i : headermin..headermax;
  20.   xword1 : word;
  21.   xword2 : word;
  22.  
  23.   begin
  24.   caption1('Device      Units    Header       Attributes'
  25.     + '             Strategy     Interrupt');
  26.   xword1:=devseg;
  27.   xword2:=devofs + $0022;
  28.   window(1, 4, twidth, tlength - 2);
  29.   while xword2 < $FFFF do
  30.     begin
  31.     pause2;
  32.     if endit then
  33.       Exit;
  34.     for i:=0 to 17 do
  35.       header[i]:=mem[xword1 : xword2 + i];
  36.     if header[5] and $80 = $00 then
  37.       write('            ', header[10] : 5)
  38.     else
  39.       begin
  40.       for i:=10 to 17 do
  41.         write(showchar(chr(header[i])));
  42.       write('         ')
  43.       end;
  44.     write('    ');
  45.     segofs(xword1, xword2);
  46.     write('    ', bin16(cbw(header[4], header[5])), '    ');
  47.     segofs(xword1, cbw(header[6], header[7]));
  48.     write('    ');
  49.     segofs(xword1, cbw(header[8], header[9]));
  50.     writeln;
  51.     xword1:=cbw(header[2], header[3]);
  52.     xword2:=cbw(header[0], header[1])
  53.     end
  54.   end;
  55. end.